BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/Ap-Az/AstroStack1.1.cpt/AstroStack 1.1/card_9550.txt

Text File | 1988-04-24 | 10.8 KB | 383 lines

-- card: 9550 from stack: in.1
-- bmap block id: 6808
-- flags: 0000
-- background id: 7789
-- name:
----- HyperTalk script -----
on openCard
  hide card field id 13
  hide card field id 18
  hide card field id 20
end openCard



-- part 8 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=476 top=88 right=291 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=13 top=100 right=120 bottom=32
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  put empty into card field id 13
  put 0 into adjustment
  choose select tool
  put line 1 of card field id 15 of card id 2898 into angle
  put 260 + round(111 * cos(angle * pi/180)) into xspot
  put 180 + round(111 * sin(angle * pi/180)) into yspot
  put xspot & "," & yspot into line 1 of card field id 13
  drag from 480, 242 to 495, 255
  drag from 488, 249 to xspot, yspot with optionKey


  put line 2 of card field id 15 of card id 2898 into angle
  put 260 + round(111 * cos(angle * pi/180)) into xspot
  put 180 + round(111 * sin(angle * pi/180)) into yspot
  if abs(xspot - item 1 of line 1 of card field id 13) < 7 and abs(yspot - item 2 of line 1 of card field id 13) < 7
  then
  add 7 to adjustment
  put 260 + round((111 + adjustment) * cos(angle * pi/180)) into xspot
  put 180 + round((111 + adjustment) * sin(angle * pi/180)) into yspot
end if
put 0 into adjustment
put xspot & "," & yspot into line 2 of card field id 13
drag from 483,223 to 492,237
drag from 488, 230 to xspot, yspot with optionKey

put line 3 of card field id 15 of card id 2898 into angle
put 260 + round(111 * cos(angle * pi/180)) into xspot
put 180 + round(111 * sin(angle * pi/180)) into yspot
repeat with x =  1 to 2
  if abs(xspot - item 1 of line x of card field id 13) < 7 and abs(yspot - item 2 of line x of card field id 13) < 7
  then
  add 7 to adjustment
  put 260 + round((111 + adjustment) * cos(angle * pi/180)) into xspot
  put 180 + round((111 + adjustment) * sin(angle * pi/180)) into yspot
end if
end repeat
put 0 into adjustment
put xspot & "," & yspot into line 3 of card field id 13
drag from 482,206 to 491,219
drag from 487,213 to xspot, yspot with optionKey

put line 4 of card field id 15 of card id 2898 into angle
put 260 + round(111 * cos(angle * pi/180)) into xspot
put 180 + round(111 * sin(angle * pi/180)) into yspot
repeat with x =  1 to 3
  if abs(xspot - item 1 of line x of card field id 13) < 7 and abs(yspot - item 2 of line x of card field id 13) < 7
  then
  add 7 to adjustment
  put 260 + round((111 + adjustment) * cos(angle * pi/180)) into xspot
  put 180 + round((111 + adjustment) * sin(angle * pi/180)) into yspot
end if
end repeat
put 0 into adjustment
put xspot & "," & yspot into line 4 of card field id 13
drag from 482,192 to 492,202
drag from 487,197 to xspot, yspot with optionKey

put line 5 of card field id 15 of card id 2898 into angle
put 260 + round(111 * cos(angle * pi/180)) into xspot
put 180 + round(111 * sin(angle * pi/180)) into yspot
repeat with x =  1 to 4
  if abs(xspot - item 1 of line x of card field id 13) < 7 and abs(yspot - item 2 of line x of card field id 13) < 7
  then
  add 7 to adjustment
  put 260 + round((111 + adjustment) * cos(angle * pi/180)) into xspot
  put 180 + round((111 + adjustment) * sin(angle * pi/180)) into yspot
end if
end repeat
put 0 into adjustment
put xspot & "," & yspot into line 5 of card field id 13
drag from 477,179 to 491,189
drag from 484, 184 to xspot, yspot with optionKey

put line 6 of card field id 15 of card id 2898 into angle
put 260 + round(111 * cos(angle * pi/180)) into xspot
put 180 + round(111 * sin(angle * pi/180)) into yspot
repeat with x =  1 to 5
  if abs(xspot - item 1 of line x of card field id 13) < 7 and abs(yspot - item 2 of line x of card field id 13) < 7
  then
  add 7 to adjustment
  put 260 + round((111 + adjustment) * cos(angle * pi/180)) into xspot
  put 180 + round((111 + adjustment) * sin(angle * pi/180)) into yspot
end if
end repeat
put 0 into adjustment
put xspot & "," & yspot into line 6 of card field id 13
drag from 482,163 to 492,175
drag from 487,169 to xspot, yspot with optionKey

choose browse tool
click at 22,129

end mouseUp



-- part 13 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=7 top=69 right=87 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=13 top=121 right=138 bottom=37
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  put 0 into adjustment
  choose select tool
  put line 7 of card field id 15 of card id 2898 into angle
  put 260 + round(111 * cos(angle * pi/180)) into xspot
  put 180 + round(111 * sin(angle * pi/180)) into yspot
  repeat with x =  1 to 6
    if abs(xspot - item 1 of line x of card field id 13) < 7 and abs(yspot - item 2 of line x of card field id 13) < 7
    then
    add 7 to adjustment
    put 260 + round((111 + adjustment) * cos(angle * pi/180)) into xspot
    put 180 + round((111 + adjustment) * sin(angle * pi/180)) into yspot
  end if
end repeat
put 0 into adjustment
put xspot & "," & yspot into line 7 of card field id 13
drag from 482,147 to 492,159
drag from 487,153 to xspot, yspot with optionKey

put line 8 of card field id 15 of card id 2898 into angle
put 260 + round(111 * cos(angle * pi/180)) into xspot
put 180 + round(111 * sin(angle * pi/180)) into yspot
repeat with x =  1 to 7
  if abs(xspot - item 1 of line x of card field id 13) < 7 and abs(yspot - item 2 of line x of card field id 13) < 7
  then
  add 7 to adjustment
  put 260 + round((111 + adjustment) * cos(angle * pi/180)) into xspot
  put 180 + round((111 + adjustment) * sin(angle * pi/180)) into yspot
end if
end repeat
put 0 into adjustment
put xspot & "," & yspot into line 8 of card field id 13
drag from 479,129 to 491,141
drag from 485,135 to xspot, yspot with optionKey


put line 9 of card field id 15 of card id 2898 into angle
put 260 + round(111 * cos(angle * pi/180)) into xspot
put 180 + round(111 * sin(angle * pi/180)) into yspot
repeat with x =  1 to 8
  if abs(xspot - item 1 of line x of card field id 13) < 7 and abs(yspot - item 2 of line x of card field id 13) < 7
  then
  add 7 to adjustment
  put 260 + round((111 + adjustment) * cos(angle * pi/180)) into xspot
  put 180 + round((111 + adjustment) * sin(angle * pi/180)) into yspot
end if
end repeat
put 0 into adjustment
put xspot & "," & yspot into line 9 of card field id 13
drag from 479,113 to 490,124
drag from 485,119 to xspot, yspot with optionKey


put line 10 of card field id 15 of card id 2898 into angle
put 260 + round(111 * cos(angle * pi/180)) into xspot
put 180 + round(111 * sin(angle * pi/180)) into yspot
repeat with x =  1 to 9
  if abs(xspot - item 1 of line x of card field id 13) < 7 and abs(yspot - item 2 of line x of card field id 13) < 7
  then
  add 7 to adjustment
  put 260 + round((111 + adjustment) * cos(angle * pi/180)) into xspot
  put 180 + round((111 + adjustment) * sin(angle * pi/180)) into yspot
end if
end repeat
put 0 into adjustment
put xspot & "," & yspot into line 10 of card field id 13
drag from 479,97 to 490,107
drag from 485, 102 to xspot, yspot with optionKey


put line 11 of card field id 15 of card id 2898 into angle
put 260 + round(111 * cos(angle * pi/180)) into xspot
put 180 + round(111 * sin(angle * pi/180)) into yspot
repeat with x =  1 to 10
  if abs(xspot - item 1 of line x of card field id 13) < 7 and abs(yspot - item 2 of line x of card field id 13) < 7
  then
  add 7 to adjustment
  put 260 + round((111 + adjustment) * cos(angle * pi/180)) into xspot
  put 180 + round((111 + adjustment) * sin(angle * pi/180)) into yspot
end if
end repeat
put 0 into adjustment
put xspot & "," & yspot into line 11 of card field id 13
drag from 480,279 to 501, 288
drag from 491,284 to xspot, yspot with optionKey


put line 12 of card field id 15 of card id 2898 into angle
put 260 + round(126 * cos(angle * pi/180)) into xspot
put 180 + round(126 * sin(angle * pi/180)) into yspot
drag from 479,264 to 496, 272
drag from 488, 268 to xspot, yspot with optionKey
choose browse tool
end mouseUp



-- part 15 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=12 right=31 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name:


-- part 16 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=380 top=316 right=338 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Continue
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=380 top=292 right=314 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print chart
----- HyperTalk script -----
on mouseUp
  open printing
  set the lockscreen to true
  show card field id 18
  show card field id 20
  print card id 9550
  hide card field id 18
  hide card field id 20
  close printing
end mouseUp




-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=482 top=315 right=339 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go home
end mouseUp



-- part 18 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=380 top=290 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 20 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=435 top=258 right=289 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part contents for card part 13
----- text -----
150,167
352,242
152,155
146,150
201,274
371,185
290,73
321,273
354,121
361,241
277,70